home *** CD-ROM | disk | FTP | other *** search
/ Leisure Game Pak 1 / Leisure Game Pak I.iso / lpgame1 / 04 / source / mynes.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-17  |  2KB  |  70 lines
  1. {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,R-,S-,V+,X-}
  2. {$M 16384,0,655360}
  3. (*  ......................................................................  *)
  4. (*  :            :                             :  *)
  5. (*  :    program  :  MYNES!       (V1.10)                                 :  *)
  6. (*  :            :                             :  *)
  7. (*  :   includes :  MYNESDEF, MYNESINI, MYNESPLF, MYNESGAM, MYNESTTL     :  *)
  8. (*  :   units    :  DRAWSTR, GADGET, MOUSE, TILES, TIMER, TIMING,        :  *)
  9. (*  :         :  XPALETTE                             :  *)
  10. (*  :            :                             :  *)
  11. (*  :    author      :  Marc Palms, Am Forst 12, D-54597 Rommersheim, Germany:  *)
  12. (*  :    release  :  30-AUG-92        last update:  07-JUL-93         :  *)
  13. (*  :    compiler :  TurboPascal 6.0                     :  *)
  14. (*  :............:.......................................................:  *)
  15.  
  16. {$UNDEF debug}
  17.  
  18. PROGRAM        MYNES;
  19.  
  20. USES    (*  standard units  *)    CRT,    (*  Delay(), Sound(), NoSound  *)
  21.                 GRAPH,
  22.                                 DOS,    (*  GetDate() for HallOfFame  *)
  23.                                     (*  FSplit for HOF_PathName   *)
  24.     (*  new units  *)       DRAWSTR,
  25.                 GADGET,
  26.                 MOUSE,
  27.                                 TILES,
  28.                     TIMER,
  29.                                 TIMING,
  30.                 XPALETTE;
  31.  
  32. {$I MYNESDEF.PAS }        (* defines *)
  33. {$I MYNESINI.PAS }        (* palette and initialization *)
  34. {$I MYNESPLF.PAS }        (* playfield, color_bar and explode  *)
  35. {$I MYNESGAM.PAS }        (* the game itself *)
  36. {$I MYNESTTL.PAS }        (* the intro, title, game_end, halloffame *)
  37.  
  38.  
  39. VAR    scene    : SCENE_TYPE;    (*  local for main *)
  40.  
  41. BEGIN    (*  main program  *)
  42.         initialize;
  43.  
  44.         intro;
  45.         show_title(Level, Speed);
  46.  
  47.         WHILE  (GameStatus <> QUIT)  DO
  48.         BEGIN
  49.                 scene := Scene_ARRAY[Level];
  50.                 scene.TimeLimit := scene.TimeLimit * SPEED_FACTOR[Speed];
  51.  
  52.         generate_playfield(scene);
  53.         draw_playfield(scene);
  54.  
  55.                 play_game(scene);
  56.  
  57.         HideMouse;
  58.  
  59.                 IF  (GameStatus <> QUIT)  THEN
  60.             game_end(Level);
  61.  
  62.                 show_title(Level, Speed);
  63.         END;  (*  WHILE  *)
  64.  
  65.         (* now write the Hall Of Fame and leave the rest to MynesExitProc *)
  66.         WriteHOFfile;
  67.  
  68. END.    (*  PROGRAM MYNES  *)
  69.  
  70.